home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_144_Item Info.bin < prev    next >
Text File  |  1995-11-23  |  2KB  |  66 lines
  1. ItemType: WIND
  2. Rect: 207,444,471,614
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Item Info
  8. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue┬┬if objValue="Open" then┬  global SSelection┬  if sselection = "true" then┬    wsSet wdID,"Value","Selection","0,100"┬  else┬    wsSet wdID,"Name","Selection","0,100"┬  end if┬else if objValue="Close" then ┬  ┬else if objValue="Suspend" then ┬  ┬else if objValue="Resume" then ┬  ┬else if objValue="CloseBox" then ┬  ┬else if objValue="ZoomBox" then ┬  ┬else if objValue="GrowBox" then ┬  ┬else if objValue="TitleBar" then ┬  ┬end if┬┬--end windowEvent
  9. Params: i0_TopLeft┬i8_Text┬i4_Text┬i5_Text
  10. Result: i4_Text┬i5_Value
  11.  
  12. ItemType: PUSH
  13. Rect: 179,139,251,159
  14. Name: OK
  15. DefaultItem: TRUE
  16. Script: get wsGet(wdID,"name","text")┬put it into namer┬get wsGet(wdID,"value","value")┬put it into vv┬put "y" into closeIt┬if (namer=empty) or (vv=empty) then┬  beep┬  alertNote("You forgot to either enter a name or a value.")┬  put "n" into closeIt┬else ┬  if checkQuality(namer,25)="fail" then┬    alertNote("Incorrect entry╤either too long or contains improper characters.")┬    wsSet wdID,"name","Text",""┬    put "n" into closeIt┬  end if┬end if┬if closeIt="y" then wsSend wdID,0,"Close"┬┬┬
  17.  
  18. ItemType: PUSH
  19. Rect: 74,139,154,159
  20. Name: Cancel
  21. CancelItem: TRUE
  22. AutoClose: TRUE
  23.  
  24. ItemType: TEXT
  25. Rect: 2,26,242,42
  26. AutoSize: FALSE
  27. Name: Instr1
  28. Text: Name of item:
  29.  
  30. ItemType: TEXT
  31. Rect: 5,63,255,85
  32. TextFont: Geneva
  33. AutoSize: FALSE
  34. Name: Name
  35. LockText: FALSE
  36. TextAlign: Center
  37.  
  38. ItemType: TEXT
  39. Rect: 150,96,255,118
  40. TextFont: Geneva
  41. AutoSize: FALSE
  42. Name: Value
  43. LockText: FALSE
  44. TextAlign: Right
  45.  
  46. ItemType: TEXT
  47. Rect: 13,45,208,57
  48. TextFont: Geneva
  49. TextSize: 9
  50. AutoSize: FALSE
  51. Name: Instr2
  52. Text: 25 letters or less, no ╥/╙, ╥(╙ or ╥,╙
  53.  
  54. ItemType: TEXT
  55. Rect: 40,99,147,115
  56. AutoSize: FALSE
  57. Name: instr3
  58. TextAlign: Right
  59. Text: Value of item:
  60.  
  61. ItemType: TEXT
  62. Rect: 1,2,261,18
  63. AutoSize: FALSE
  64. Name: title
  65. TextAlign: Center
  66. Text: Title